library(dplyr)


bnames <- read.csv("bnames.csv", header = TRUE, stringsAsFactors = FALSE)

#tbl --------
tbn <- tbl_df(bnames)
class(tbn)

glimpse(tbn)

#filter --------
filter(tbn, name == "John")

filter(tbn, year == 1990 & percent > 0.02)

#arrange --------
arrange(tbn, percent, name)

arrange(tbn, desc(percent), name)
